home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / intext1a / globalse.bas < prev    next >
BASIC Source File  |  1999-09-27  |  299b  |  13 lines

  1. Attribute VB_Name = "modGlobalSearch"
  2.  
  3. Public Function GetSelectedFile(strPath As String) As String
  4.  
  5. If Right(strPath, 1) <> "\" Then
  6.  GetSelectedFile = strPath & "\" & frmGlobal.File1.FileName
  7.   Else
  8.    GetSelectedFile = strPath & frmGlobal.File1.FileName
  9.     
  10. End If
  11.     
  12. End Function
  13.